BOT MIRC manual pake MIRC software by crew "indoworldchat.org port 6667"
Bot MIRC dengan mirc software nie bot paling sederhana dan mudah. Bisa dibuat sendiri semau kita (dengan script-script pilihan kita, eks anti flud, no badwords, no badnick, no advertising, etc) ato kita bisa pake Bot manual yang dah dibuat ma bule2 tuh. ex. Dreambot, PartyBOT v2.0, GameBot, AtomicBot, BrandoBot 98, dll masih banyak banget.. tanya aja ma Mbah Google.
Ok kita mulai nie bikin bot manualnya. Syaratnya kamu mesti pake PC yang dah terhubung dengan internet (bisa pake warnet ato numpang di PC punya temen yang gratis, xixixixi ). Jangan lupa instal MIRC (Download mIRC free di www.mirc.com Gratis tuh).
<_text_>Aktifkan MIRC, jangan lupa add profil (nickname ni jadi nama bot mu),server indoworldchat.org port 6667 biar bisa ketemu Aq (Andre <-- Andr3_pr14,Pr14_p3rk454 dan AndreIRC, hihihi). Kalo dah connect, join rum kamu dan jngn lupa join room #sahabat dan #indoworldchat ya.. he he he, trus tekan Alt+R (buat ngaktifin mirc scripts editor remote.ini ).
Trus copy kan nie script bot na di bawah ini :
========================================================================
on *:JOIN:#ourchat:
{ msg $chan wb $nick }
on @*:TEXT:*P-NuT*:#: { msg $chan ya $nick
}
on *:TEXT:!kiss*:#:{
if (!$2) { .msg $Chan Tak ada nick untuk di kiss. | halt }
if ($2 ison $Chan) { .msg $Chan $nick kiss $2 ,4 mmmuuahhh... | halt }
}
on *:TEXT:!jitak*:#:{
if (!$2) { .msg $Chan Tak ada nick untuk di jitak. | halt }
if ($2 ison $Chan) { .msg $Chan $nick jitak $2 2Tuk!Tuk!Tuk..Bengong aja jd orang!! | halt }
}
on *:TEXT:!slaps*:#:{
if (!$2) { .msg $Chan Tak ada nick untuk di pukul. | halt }
if ($2 ison $Chan) { .msg $Chan $nick gebug $2 4pake balok kayu 2sisa illegallogging! | halt }
}
on *:TEXT:!bunga*:#:{
if (!$2) { .msg $Chan Tak ada nick untuk di kasih. | halt }
if ($2 ison $Chan) { .msg $Chan $nick ngasih bunga $2 3---<--<(4@ | halt }
}
on *:TEXT:!ban*:#: {
if ($2 isop $chan) && ($nick ishop $chan) {
notice $nick you cannot ban $2 | halt
}
if (($nick isop $chan) || ($nick ishop $chan) && ($3)) .ban -ku $+ $3 $chan $address($2,2) $4-
if (($nick isop $chan) || ($nick ishop $chan) && (!$3)) .msg $chan if the ban time in seconds is not specified the default is 120 seconds
if (($nick isop $chan) || ($nick ishop $chan) && (!$3)) .ban -ku120 $chan $address($2,2)
if ($nick isop $chan) || ($nick ishop $chan) .kick $chan $2 $4-
if (($nick isop $chan) || ($nick ishop $chan) && (!$2)) .msg $chan you need to specify a nick!
}
on *:TEXT:!kb*:#: {
if ($2 isop $chan) && ($nick ishop $chan) {
notice $nick you cannot ban $2 | halt
}
if ($nick isop $chan) || ($nick ishop $chan) {
ban $chan $address($2,2)
kick $chan $2 $3-
}
}
on *:TEXT:!kick*:#: {
if ($2 isop $chan) && ($nick ishop $chan) {
notice $nick you cannot kick $2 | halt
}
if ($nick isop $chan) || ($nick ishop $chan) {
.kick $chan $2 $3-
}
}
on *:BAN:#: {
if ($me isop $chan) {
mode $chan -e $address($2,2)
mode $chan -e $2
}
}
on *:KICK:#: {
if ($me isop $chan) {
mode $chan -e $2
mode $chan -e $address($2,2)
}
}
on @*:TEXT:*ass*:#: { msg $chan 4 Wa Alaykuum Salaam
}
on @*:TEXT:*askum*:#: { msg $chan 4 Wa Alaykuum Salaam
}
on @*:TEXT:*haha*:#: { msg $chan Jah, koyok mak lampir guyune $nick
}
on @*:TEXT:*!helpasl*:#: { msg $chan $nick , ketik !addasl age, sex, locat
}
on @*:TEXT:*gaga*:#: { msg $chan $nick jgn keras2 ktawana,
}
on @*:TEXT:*lol*:#: { msg $chan Jah, $nick ktawa na fales!!
}
on @*:TEXT:*!help*:#: { msg $chan !ping !seen !version !jam !date !say !reg !kiss !quit !sum
}
on @*:TEXT:*!say*:#: { msg $chan $nick menyapa temen2 $chan , 4 Assalamualaikum..
}
on @*:TEXT:*!web*:#: { msg $chan 2 visit www.ourchat9.co.cc 1 or 4 rontokbro.110mb.com
}
on @*:TEXT:*!help*:#: { msg $chan !addasl !asl !helpasl !ping !seen !version !jam !date !say !kiss !quit !sum
}
on @*:TEXT:*!quit*:#: { msg $chan bwt all $chan chatter, $nick mau out duyu, thatha ma plend
}
on @*:TEXT:*!about*:#: { msg $chan 4 Ariel-Bot V 3.0 2 was created 8 by Ariel©2009
}
[script by Zainul]
on *:join:#: {
if ($nick == $me) {
halt
}
if ($readini(asl.ini,$nick,logged) == Active) {
halt
}
notice $nick Type !addasl age/sex/location to set your asl. Type !asl to see some1`s asl.
}
on *:text:!asl*:#: {
if ($readini(asl.ini,$2,asl) == $null) {
halt
}
msg $chan $2 is $readini(asl.ini,$2,asl)
}
on *:text:!addasl*:#: {
if ($readini(asl.ini,$nick,logged) == Active) { notice $nick u have already added your asl sorry to check it typ !asl $nick
halt
}
if ($readini(asl.ini,$nick,asl) == $null) { writeini asl.ini $nick asl $2 $3- }
writeini asl.ini $nick logged active
notice $nick Your asl is set to $readini(asl.ini,$nick,asl)
}
on @*:TEXT:*!jam*:#: {
msg $chan Sekarang jam 4 $time 4
}
on @*:TEXT:*!date*:#: {
msg $chan Sekarang tgl 4 $date 4
}
on *:TEXT:!sum*:#:{
if $1 == %calc $+ !sum {
if $2 == %calc $+ $null { /calc $2- | halt }
else { /calc $2- | halt }
}
}
alias calc {
if ($1- != $null) {
msg $chan Hasil $calc($1-)
else msg $chan Calculater: Tak ada parameter. Halting.
}
}
#seen on
on 1:JOIN:#: { writeini -n seen.ini $nick date I last saw $nick joining $chan at $asctime(hh:nntt) on $asctime(dd mmmm yyyy) $+ . }
on 1:QUIT: { writeini -n seen.ini $nick date I last saw $nick quitting IRC at $asctime(hh:nn tt) on $asctime(dd mmmm yyyy) $+ , with the quit message $1- }
on 1:PART:#: { writeini -n seen.ini $nick date I last saw $nick leaving $chan at $asctime(hh:nntt) on $asctime(dd mmmm yyyy) $+ . }
on 1:NICK: { writeini -n seen.ini $nick date I last saw $nick changing their nick to $newnick at $asctime(hh:nntt) on $asctime(dd mmmm yyyy) $+ . }
on *:TEXT:!seen*:#: {
if ($2 ison $chan) && ($nick != $2) { /msg $chan $2- is in $chan ( $chan ) | halt }
if ($2 == $me) { /msg $chan If I'm answering the question I'm in the Channel ( $chan ). | halt }
if ($nick == $2) && ($nick ison $chan) { /msg $chan If you don't know where $2 is, then you have some problems.. | halt }
if ($readini seen.ini $2 date == $null) { /msg $chan Sorry ( $nick ) $+ $2- Is not in my Memory. | halt }
else { /msg $chan $readini seen.ini $2 date }
}
on 1:TEXT:!seen*:?: {
if ($nick == $2) { .msg $nick If you don't know where $2 is, then you have some problems.. | halt }
if ($readini seen.ini $2 date == $null) { .msg $nick Sorry ( $nick ) $+ $2- Is not in my Memory. | halt }
else { .msg $nick $readini seen.ini $2 date }
}
#seen off
on 1:text:!seen*:*: {
if (%seen == off) { halt }
if ($chan ischan) { set -u2 %seen.qchan $chan }
else { set -u2 %seen.qchan $nick }
if ($2 == $me) { /msg %seen.qchan Er, $nick $+ , that's me... | halt }
if ($2 == $nick) { /msg %seen.qchan What's the matter $nick $+ , can't find youself? | halt }
if ($2 ison %seen.qchan) { /msg %seen.qchan Hey, $nick $+ , $2 is in here.. ( $chan ) | halt }
else {
set -u2 %seen.qnick $readini -n %QID.dataini seen $2
if (%seen.qnick == $null) { /msg %seen.qchan Sorry $nick $+ , i've never seen that person. }
else { /msg %seen.qchan $2 was last seen as %seen.qnick $+ . }
}
}
on *:TEXT:*:#:{
if ($1 == !Ping) || ($1 == !Time) || ($1 == !Version) {
if ($2 != $null) {
set %ctcp.chan $chan
set %ctcp.nick $2
set %ctcp.cmd $remove($1,!)
ctcp %ctcp.nick %ctcp.cmd
}
}
}
on *:CTCPREPLY:$($+(%ctcp.cmd,*)):{
if ($nick == %ctcp.nick) {
if (%ctcp.cmd == Ping) { ng %ctcp.chan %ctcp.nick $+ 's ping reply is: $+($duration($calc($ctime - $2-)),.) }
if (%ctcp.cmd == Time) { msg %ctcp.chan It is $2- at the place where %ctcp.nick lives. }
if (%ctcp.cmd == Version) { msg %ctcp.chan %ctcp.nick is using: $+($2-,.) }
}
unset %ctcp.*
}
raw 401:*:{
msg %ctcp.chan %ctcp.nick sedang tidak online.
unset %ctcp.*
halt
}
on @*:TEXT:*babi*:#: { ban -u60k $chan $nick wew Jorok! lol }
on @*:TEXT:*asu*:#: { ban -u60k $chan $nick wew Jorok! lol }
on @*:TEXT:*bajingan*:#: { ban -u60k $chan $nick wew Jorok! lol }
on @*:TEXT:*lonthe*:#: { ban -u60k $chan $nick wew Jorok! lol }
on @*:TEXT:*lonte*:#: { ban -u60k $chan $nick wew Jorok! lol }
on @*:TEXT:*kampang*:#: { ban -u60k $chan $nick wew Jorok! lol }
on @*:TEXT:*kimak*:#: { ban -u60k $chan $nick wew Jorok! lol }
on @*:TEXT:*peler*:#: { ban -u60k $chan $nick wew Jorok! lol }
on @*:TEXT:*laso*:#: { ban -u60k $chan $nick Jgn Jorok ah!! lol }
on @*:TEXT:*mbojo*:#: { ban -u60k $chan $nick Jgn Jorok ah!! lol }
on @*:TEXT:*fuck*:#: { ban -u60k $chan $nick Jgn Jorok ah!! lol }
on @*:TEXT:*pantek*:#: { ban -u60k $chan $nick Jgn Jorok ah!! lol }
on @*:TEXT:*juancok*:#: { ban -u60k $chan $nick Jgn Jorok ah!! lol }
on @*:TEXT:*pantek*:#: { ban -u60k $chan $nick Jgn Jorok ah!! lol }
on *:TEXT:*:#: if ($regex($1-,/(?:#|#pare|#lampung|#indo|#batam|#gorontalo|#indonesia|#gaulchat|#radit|#yogyakarta|#palu|#bandung|#jakarta|#medan|#kediri|#jogja|#padang|#borneo|#islam|#islamic|#5fm|#coolirc|#fun|#party_place|#coolchat|#irc|#irchat|#gaul)/i)){ ban -u10k $chan $nick No Advertising rum in here!! lol }
on *:TEXT:*:#:{
if ($nick == $me) {
halt
}
if ($nick isop $chan) {
halt
}
inc -u5 %flood. [ $+ [ $nick ] ]
if (%flood. [ $+ [ $nick ] ] == 5) {
ban -ku300 $chan $nick Don't Flood! 5 Minute ban. (flood protection by Zainul)
halt
}
}
on *:action:*:#:{
if ($nick == $me) {
halt
}
if ($nick isop $chan) {
halt
}
inc -u5 %flood. [ $+ [ $nick ] ]
if (%flood. [ $+ [ $nick ] ] == 5) {
ban -ku300 $chan $nick Don't Flood! 5 Minute ban. (flood protection)
halt
}
}
=================================================================================
Nah no scripts bot biar bot bisa bekerja. Jangan lupa kasih op tu si bot biar bisa akick layaknya op human..
Gampang kan ? met mencoba ja ... Kalo mau script yang lebih banyak lagi, tanya ja ma ahli-ahli bot tuh pa search google ajah...